let rec fib n =
  match n with
  | 0 -> 1
  | 1 -> 1
  | _ -> fib (n-1) + fib (n-2)

let main =
  [0..10]
  |> List.map fib
  |> printf "%A\n"
